home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 November / Pcwk1197.iso / LOTUS / Eng-ins / SMASTERS / APPROACH / DB2WWW.MPR / SCRIPT / ApproachDoc / WWW Assistant / Body / P4BtnWarnTbl.s (.txt) < prev    next >
Null Bytes Alternating  |  1997-01-09  |  2KB  |  37 lines
  1. '++LotusScript Development Environment:2:5:(Options):0:66
  2.  
  3. '++LotusScript Development Environment:2:5:(Forward):0:1
  4. Declare Sub Click(Source As Button, X As Long, Y As Long, Flags As Long)
  5. Declare Sub NewWinTitle
  6.  
  7. '++LotusScript Development Environment:2:5:(Declarations):0:2
  8.  
  9. '++LotusScript Development Environment:2:2:BindEvents:1:129
  10. Private Sub BindEvents(Byval Objectname_ As String)
  11.     Static Source As BUTTON
  12.     Set Source = Bind(Objectname_)
  13.     On Event Click From Source Call Click
  14. End Sub
  15.  
  16. '++LotusScript Development Environment:2:2:Click:1:12
  17. Sub Click(Source As Button, X As Long, Y As Long, Flags As Long)
  18.     
  19.     On Error Resume Next
  20.     'Sendkeys "{tab}{tab}~~",0
  21.     gCurPage = 4
  22.     
  23.     Set Currentwindow.Activeview =currentDocument.warning~ message~ table
  24.     CurrentDocument.activate
  25.     CurrentDocument.window.maximize
  26.     
  27.     Err = 0
  28.     
  29. End Sub
  30. '++LotusScript Development Environment:2:2:NewWinTitle:1:8
  31. Sub NewWinTitle
  32.     'Rename the window title for the dialogue so that it has the title we want instead of the apr file name
  33.     Dim activeWin As Integer, winTitle As String
  34.     activeWin% = GetActiveWindow()
  35.     winTitle$ = ""
  36.     SetWindowTextA activeWin%, winTitle$
  37. End Sub